/* rsbr001.p - Scheduled Orders Browse UI                                   */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                      */
/* All rights reserved worldwide.  This is an unpublished work.             */
/* $Revision: 1.11 $    */
/*V8:ConvertMode=NoConvert                                                  */
/********************************** History *********************************
 *    Revision: 8.5      Created: 06/19/97    By: B. Pedersen    *J1TF*
 *    Revision: 8.5     Modified: 09/26/97    By: B. Pedersen    *J20C*
 *    Revision: 8.5     Modified: 01/31/99    By: Doug Norton    *M071*
 *    Revision: 9.0     Modified: 03/15/99    By: Mark Smith     *M0BF*
 *    Revision: 9.1     Modified: 10/01/99    By: Brian Compton  *N023*
 *    Revision: 9.1     Modified: 08/15/00    By: Mark Brown     *N0KP*
 * $Revision: 1.11 $    BY: Jean Miller          DATE: 04/05/02  ECO: *P044*
 ****************************************************************************/

{mfdeclre.i}

&SCOPED-DEFINE BR-TITLE "Scheduled Orders"

&SCOPED-DEFINE BR-NAME rs001
&SCOPED-DEFINE Q-DRAG-BACK-COL 1

&SCOPED-DEFINE Q-FIRST-TABLE po_mstr
&SCOPED-DEFINE Q-FIRST-FIELD-LIST (po_nbr po_ap_acct po_ap_sub po_ap_cc po_taxable po_cr_terms po_bill po_ship po_site po_shipvia po_fob po_buyer po_contact po_contract po_sch_mthd po_sched)
&SCOPED-DEFINE Q-2ND-TABLE ad_mstr
&SCOPED-DEFINE Q-2ND-JOIN ad_addr = po_vend
&SCOPED-DEFINE Q-2ND-FIELD-LIST ()
&SCOPED-DEFINE Q-NUM-TABLES 2

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-1 b-1.po_nbr
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-1 po_mstr.po_nbr
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-1 tt-po_nbr
&SCOPED-DEFINE BR-K-COL-LABEL-1 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-1 "Order"
&SCOPED-DEFINE BR-FIELD-TYPE-1 character
&SCOPED-DEFINE BR-FIELD-FRMT-1 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-1 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-2 b-1.po_ap_acct
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-2 po_mstr.po_ap_acct
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-2 tt-po_ap_acct
&SCOPED-DEFINE BR-K-COL-LABEL-2 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-2 "AP Account"
&SCOPED-DEFINE BR-FIELD-TYPE-2 character
&SCOPED-DEFINE BR-FIELD-FRMT-2 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-2 11

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-3 b-1.po_ap_sub
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-3 po_mstr.po_ap_sub
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-3 tt-po_ap_sub
&SCOPED-DEFINE BR-K-COL-LABEL-3 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-3 "Sub-Acct"
&SCOPED-DEFINE BR-FIELD-TYPE-3 character
&SCOPED-DEFINE BR-FIELD-FRMT-3 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-3 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-4 b-1.po_ap_cc
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-4 po_mstr.po_ap_cc
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-4 tt-po_ap_cc
&SCOPED-DEFINE BR-K-COL-LABEL-4 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-4 "CC"
&SCOPED-DEFINE BR-FIELD-TYPE-4 character
&SCOPED-DEFINE BR-FIELD-FRMT-4 FORMAT "x(4)"
&SCOPED-DEFINE BR-FIELD-WIDTH-4 5

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-5 b-1.po_taxable
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-5 MFC_LOGICAL
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-5 tt-po_taxable
&SCOPED-DEFINE BR-K-COL-LABEL-5 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-5 "Tax"
&SCOPED-DEFINE BR-FIELD-TYPE-5 logical
&SCOPED-DEFINE BR-FIELD-WIDTH-5 4

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-6 b-1.po_cr_terms
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-6 po_mstr.po_cr_terms
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-6 tt-po_cr_terms
&SCOPED-DEFINE BR-K-COL-LABEL-6 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-6 "Cr Terms"
&SCOPED-DEFINE BR-FIELD-TYPE-6 character
&SCOPED-DEFINE BR-FIELD-FRMT-6 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-6 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-7 b-1.po_bill
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-7 po_mstr.po_bill
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-7 tt-po_bill
&SCOPED-DEFINE BR-K-COL-LABEL-7 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-7 "Bill To"
&SCOPED-DEFINE BR-FIELD-TYPE-7 character
&SCOPED-DEFINE BR-FIELD-FRMT-7 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-7 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-8 b-1.po_ship
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-8 po_mstr.po_ship
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-8 tt-po_ship
&SCOPED-DEFINE BR-K-COL-LABEL-8 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-8 "Ship-To"
&SCOPED-DEFINE BR-FIELD-TYPE-8 character
&SCOPED-DEFINE BR-FIELD-FRMT-8 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-8 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-9 b-1.po_site
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-9 po_mstr.po_site
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-9 tt-po_site
&SCOPED-DEFINE BR-K-COL-LABEL-9 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-9 "A/P Site"
&SCOPED-DEFINE BR-FIELD-TYPE-9 character
&SCOPED-DEFINE BR-FIELD-FRMT-9 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-9 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-10 b-1.po_shipvia
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-10 po_mstr.po_shipvia
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-10 tt-po_shipvia
&SCOPED-DEFINE BR-K-COL-LABEL-10 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-10 "Ship Via"
&SCOPED-DEFINE BR-FIELD-TYPE-10 character
&SCOPED-DEFINE BR-FIELD-FRMT-10 FORMAT "x(20)"
&SCOPED-DEFINE BR-FIELD-WIDTH-10 21

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-11 b-1.po_fob
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-11 po_mstr.po_fob
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-11 tt-po_fob
&SCOPED-DEFINE BR-K-COL-LABEL-11 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-11 "FOB"
&SCOPED-DEFINE BR-FIELD-TYPE-11 character
&SCOPED-DEFINE BR-FIELD-FRMT-11 FORMAT "x(20)"
&SCOPED-DEFINE BR-FIELD-WIDTH-11 21

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-12 b-1.po_buyer
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-12 po_mstr.po_buyer
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-12 tt-po_buyer
&SCOPED-DEFINE BR-K-COL-LABEL-12 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-12 "Buyer"
&SCOPED-DEFINE BR-FIELD-TYPE-12 character
&SCOPED-DEFINE BR-FIELD-FRMT-12 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-12 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-13 b-1.po_contact
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-13 po_mstr.po_contact
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-13 tt-po_contact
&SCOPED-DEFINE BR-K-COL-LABEL-13 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-13 "Contact"
&SCOPED-DEFINE BR-FIELD-TYPE-13 character
&SCOPED-DEFINE BR-FIELD-FRMT-13 FORMAT "x(24)"
&SCOPED-DEFINE BR-FIELD-WIDTH-13 25

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-14 b-1.po_contract
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-14 po_mstr.po_contract
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-14 tt-po_contract
&SCOPED-DEFINE BR-K-COL-LABEL-14 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-14 "Contract"
&SCOPED-DEFINE BR-FIELD-TYPE-14 character
&SCOPED-DEFINE BR-FIELD-FRMT-14 FORMAT "x(18)"
&SCOPED-DEFINE BR-FIELD-WIDTH-14 19

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-15 b-1.po_sch_mthd
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-15 po_mstr.po_sch_mthd
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-15 tt-po_sch_mthd
&SCOPED-DEFINE BR-K-COL-LABEL-15 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-15 "Schedules Via"
&SCOPED-DEFINE BR-FIELD-TYPE-15 character
&SCOPED-DEFINE BR-FIELD-FRMT-15 FORMAT "x(1)"
&SCOPED-DEFINE BR-FIELD-WIDTH-15 14

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-16 b-1.po_sched
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-16 MFC_LOGICAL
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-16 tt-po_sched
&SCOPED-DEFINE BR-K-COL-LABEL-16 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-16 "Scheduled"
&SCOPED-DEFINE BR-FIELD-TYPE-16 logical
&SCOPED-DEFINE BR-FIELD-WIDTH-16 10

&SCOPED-DEFINE Q-NUM-FILT-VALS 16
&SCOPED-DEFINE BR-MAX-FIELD-WIDTH 25
&SCOPED-DEFINE BR-BROWSE-WIDTH 193
&SCOPED-DEFINE WHERE-CLAUSE
&SCOPED-DEFINE BR-INDEXED-FIELDS 1,12

{wbbr01.i}
if c-application-mode <> 'WEB' then do:
   {browse.i}
end.
